home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD023b.dsk / LABELS.UC.bas < prev    next >
BASIC Source File  |  2003-06-12  |  3KB  |  85 lines
  1. 10  TEXT : HOME 
  2. 20  VTAB 6: PRINT "****************************************"
  3. 40  PRINT "*     INTERNATIONAL ADDRESS LABELS     *"
  4. 60  PRINT "*             MX-80 VERSION            *"
  5. 80  PRINT "*          BY LARRY NORDGAARD          *"
  6. 100  PRINT "****************************************"
  7. 110  FOR A = 1 TO 4500
  8. 120  NEXT A
  9. 130  HOME 
  10. 139  REM  PRINT MODES/CODES
  11. 140  LET CI$ =  CHR$(9):CA$ =  CHR$(1): REM  CTRL I & CTRL A
  12. 150  LET CN$ =  CHR$(14):CT$ =  CHR$(20): REM  EXPANDED ON/OFF
  13. 160  LET CO$ =  CHR$(15):CR$ =  CHR$(18): REM  CONDENSED ON/OFF
  14. 170  LET ESC$ =  CHR$(27)
  15. 180  LET ED$ = ESC$ +"D": REM  SET HTABS COMMAND
  16. 190  LET EE$ = ESC$ +"E":EF$ = ESC$ +"F": REM  EMPHASIS ON/OFF
  17. 200  LET EG$ = ESC$ +"G":EH$ = ESC$ +"H": REM  DOUBLE STRIKE ON/OFF
  18. 210  VTAB 8: HTAB 5: INPUT "(A)MERICA OR (I)NTERNATIONAL ?";G$
  19. 220  GOTO 800
  20. 240  HOME : VTAB 12: HTAB 7: INPUT "(L)ARGE OR (S)MALL LABELS ?";S$
  21. 241 XS$ = "TO:"
  22. 243 ZS$ = "FROM:"
  23. 245 NS$ = "MR. & MRS. I. M. LOST"
  24. 247 AS$ = "1234 COMMON DR."
  25. 249 SS$ = "ANYWHERE, ST  00000"
  26. 250  VTAB 13: HTAB 8: INPUT "NUMBER OF LABELS DESIRED: ";NL
  27. 260  IF S$ = "S" GOTO 499
  28. 270  PR# 1: CALL 1002
  29. 280  PRINT CI$"80N": PRINT 
  30. 290  REM  PRINT ROUTINE FOR LARGE LABELS
  31. 300  PRINT "--------------------------------------------------------------------------------"
  32. 305 N = 0
  33. 310  PRINT ZS$
  34. 320  PRINT  TAB( 3)NS$
  35. 330  PRINT  TAB( 3)AS$
  36. 340  PRINT  TAB( 3)SS$
  37. 350  PRINT : PRINT  TAB( 18)XS$
  38. 355  PRINT EG$EE$
  39. 360  PRINT : PRINT  TAB( 20)CN$;N$
  40. 370  PRINT : PRINT  TAB( 20)CN$;A$
  41. 380  PRINT : PRINT  TAB( 20)CN$;CS$L1$
  42. 390  IF G$ = "A" GOTO 420
  43. 400  PRINT : PRINT  TAB( 20)CN$;L2$
  44. 410  PRINT : PRINT  TAB( 20)CN$;P$
  45. 420  PRINT : PRINT "--------------------------------------------------------------------------------";CT$EF$EH$
  46. 430 N = N +1
  47. 440  IF N = NL  THEN  PR# 0: CALL 1002: TEXT : PRINT : PRINT  CHR$(4)"RUNMENU"
  48. 450  GOTO 310
  49. 499  REM  PRINT ROUTINE FOR SMALL LABELS
  50. 510  PR# 1: CALL 1002
  51. 520  PRINT CI$"80n": PRINT 
  52. 550  PRINT "--------------------------------------------------------------------------------"
  53. 555 N = 0
  54. 560  PRINT ZS$; TAB( 41)ZS$
  55. 570  PRINT NS$; TAB( 41)NS$
  56. 580  PRINT AS$; TAB( 41)AS$
  57. 590  PRINT SS$; TAB( 41)SS$
  58. 595  PRINT EE$EG$
  59. 600  PRINT : PRINT  TAB( 8);"To:"; TAB( 48);"To:"
  60. 610  PRINT  TAB( 8)N$; TAB( 48)N$
  61. 620  PRINT  TAB( 8);A$; TAB( 48);A$
  62. 630  PRINT  TAB( 8);CS$;L1$; TAB( 48);CS$;L1$
  63. 640  IF G$ = "A" GOTO 670
  64. 650  PRINT  TAB( 8);L2$; TAB( 48);L2$
  65. 660  PRINT  TAB( 15);P$; TAB( 55)P$
  66. 670  PRINT "________________________________________________________________________________";EF$EH$
  67. 700 N = N +1
  68. 710  IF N = NL  THEN  PR# 0: CALL 1002: PRINT : PRINT  CHR$(4)"RUNMENU"
  69. 720  GOTO 560
  70. 800  HOME : INPUT "ENTER NAME:  ";N$
  71. 810  INPUT "ENTER ADDRESS:  ";A$
  72. 815  IF G$ = "I" GOTO 920
  73. 820  INPUT "ENTER CITY/TOWN:  ";C$
  74. 830  INPUT "ENTER STATE:  ";ST$
  75. 840  INPUT "ENTER ZIPCODE:  ";Z$
  76. 850 CS$ = C$ +", " +ST$ +"  " +Z$
  77. 860  GOTO 240
  78. 920  INPUT "ENTER VILLAGE:  ";V$
  79. 930  INPUT "ENTER CITY/TOWN:  ";T$
  80. 940  INPUT "ENTER COUNTY:  ";CU$
  81. 950  INPUT "ENTER COUNTRY:  ";CY$
  82. 960  INPUT "ENTER POSTAL CODE:  ";P$
  83. 970 L1$ = V$ +", " +T$
  84. 980 L2$ = CU$ +", " +CY$
  85. 990  GOTO 240